/*=========================================================================
 *
 *  Copyright NumFOCUS
 *
 *  Licensed under the Apache License, Version 2.0 (the "License");
 *  you may not use this file except in compliance with the License.
 *  You may obtain a copy of the License at
 *
 *         https://www.apache.org/licenses/LICENSE-2.0.txt
 *
 *  Unless required by applicable law or agreed to in writing, software
 *  distributed under the License is distributed on an "AS IS" BASIS,
 *  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 *  See the License for the specific language governing permissions and
 *  limitations under the License.
 *
 *=========================================================================*/

#include "itkMatrixIndexSelectionImageFilter.h"
#include "itkImageFileWriter.h"
#include "itkImageRegionRange.h"
#include "itkTestingMacros.h"

#include <algorithm> // For fill.
#include <fstream>

int
itkMatrixIndexSelectionImageFilterTest(int argc, char * argv[])
{
  if (argc < 1)
  {
    std::cerr << "Missing Parameters " << std::endl;
    std::cerr << "Usage: " << itkNameOfTestExecutableMacro(argv);
    std::cerr << " outputImage" << std::endl;
    return EXIT_FAILURE;
  }

  // Define the dimension of the images
  constexpr unsigned int Dimension{ 2 };

  // Declare the pixel types of the images
  using PixelType = itk::Matrix<unsigned short, Dimension, Dimension>;
  using OutputPixelType = unsigned char;

  // Declare the types of the images
  using InputImageType = itk::Image<PixelType, Dimension>;
  using OutputImageType = itk::Image<OutputPixelType, Dimension>;

  // Create a matrix image
  auto image = InputImageType::New();

  auto                      size = InputImageType::SizeType::Filled(100);
  InputImageType::IndexType index{};

  InputImageType::RegionType region = { index, size };
  image->SetRegions(region);
  image->Allocate();

  size = region.GetSize();
  index = region.GetIndex();
  const unsigned int width = size[0];
  const unsigned int height = size[1];

  size[0] = width;
  size[1] = height / 2;

  // Populate upper half of image
  index[0] = 0;
  index[1] = 0;
  region = { index, size };
  {
    PixelType pixel;
    pixel[0][0] = 128;
    pixel[0][1] = 192;
    pixel[1][0] = 0;
    pixel[1][1] = 64;

    const itk::ImageRegionRange<InputImageType> imageRegionRange(*image, region);
    std::fill(imageRegionRange.begin(), imageRegionRange.end(), pixel);
  }

  // Populate lower half of image
  index[0] = 0;
  index[1] = height / 2;
  region = { index, size };
  {
    PixelType pixel;
    pixel[0][0] = 64;
    pixel[0][1] = 16;
    pixel[1][0] = 255;
    pixel[1][1] = 192;

    const itk::ImageRegionRange<InputImageType> imageRegionRange(*image, region);
    std::fill(imageRegionRange.begin(), imageRegionRange.end(), pixel);
  }

  using SelectionFilterType = itk::MatrixIndexSelectionImageFilter<InputImageType, OutputImageType>;

  auto filter = SelectionFilterType::New();

  ITK_EXERCISE_BASIC_OBJECT_METHODS(filter, MatrixIndexSelectionImageFilter, UnaryFunctorImageFilter);

  filter->SetInput(image);

  constexpr unsigned int indexA{ 0 };
  constexpr unsigned int indexB{ 1 };
  filter->SetIndices(indexA, indexB);

  unsigned int testIndexA = 0;
  unsigned int testIndexB = 0;
  filter->GetIndices(testIndexA, testIndexB);

  if (indexA != testIndexA || indexB != testIndexB)
  {
    std::cerr << "Error " << std::endl;
    std::cerr << " Expected indices: (" << indexA << ", " << indexB << ')' << std::endl;
    std::cerr << " differ from ";
    std::cerr << " obtained indices: (" << testIndexA << ", " << testIndexB << ')' << std::endl;
    return EXIT_FAILURE;
  }

  filter->SetFunctor(filter->GetFunctor());

  using WriterType = itk::ImageFileWriter<OutputImageType>;
  auto writer = WriterType::New();

  writer->SetFileName(argv[1]);
  writer->SetInput(filter->GetOutput());

  ITK_TRY_EXPECT_NO_EXCEPTION(writer->Update());

  return EXIT_SUCCESS;
}
